home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 123 / vcsrc / lex.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-05-10  |  8.5 KB  |  348 lines
  1. /*    SC    A Spreadsheet Calculator 
  2.  *        Lexical analyser 
  3.  *
  4.  *        original by James Gosling, September 1982 
  5.  *        modifications by Mark Weiser and Bruce Israel, 
  6.  *            University of Maryland 
  7.  *
  8.  *              More mods Robert Bond, 12/86 
  9.  *        Major mods to run on VMS and AMIGA, 1/17/87 
  10.  *
  11.  */ 
  12.  
  13.  
  14.  
  15. #include "sc.h" 
  16. #include <ctype.h> 
  17. #ifdef VMS 
  18. #include "y_tab.h" 
  19. #else 
  20. #ifdef TOS 
  21. #include "y_tab.h" 
  22. #else 
  23. #include "y.tab.h" 
  24. #endif 
  25. #endif 
  26.  
  27. extern char *malloc(); 
  28. char *strtof(); 
  29.  
  30. struct key { 
  31.     char *key; 
  32.     int val; 
  33. }; 
  34.  
  35. struct key experres[] = { 
  36. #include "experres.h" 
  37.     0, 0}; 
  38.  
  39. struct key statres[] = { 
  40. #include "statres.h" 
  41.     0, 0}; 
  42.  
  43. #define ctl(x) ('x'&037) 
  44.  
  45. yylex () { 
  46.     register char *p = line+linelim; 
  47.     int ret = -1; 
  48.     while (isspace(*p)) p++; 
  49.     if (*p==0) ret = -1; 
  50.     else if (isalpha(*p)) { 
  51.     char *tokenst = p; 
  52.     register tokenl; 
  53.     register struct key *tbl; 
  54.     while (isalpha(*p)) p++; 
  55.     if (p-tokenst <= 2) { /* a COL is 1 or 2 char alpha */ 
  56.         register  col; 
  57.         ret = COL; 
  58.         col = ((tokenst[0] & 0137) - 'A'); 
  59.         if (p == tokenst+2) 
  60.         col = (col + 1)*26 + ((tokenst[1] & 0137) - 'A'); 
  61.         yylval.ival =  col; 
  62.     } else { 
  63.         ret = WORD; 
  64.         tokenl = p-tokenst; 
  65.         for (tbl = linelim ? experres : statres; tbl->key; tbl++) 
  66.             if (((tbl->key[0]^tokenst[0])&0137)==0 
  67.              && tbl->key[tokenl]==0) { 
  68.             register i = 1; 
  69.             while (i<tokenl && ((tokenst[i]^tbl->key[i])&0137)==0) 
  70.                 i++; 
  71.             if (i>=tokenl) { 
  72.                 ret = tbl->val; 
  73.                 break; 
  74.             } 
  75.             } 
  76.         if (ret==WORD) { 
  77.         linelim = p-line; 
  78.         yyerror ("Unintelligible word"); 
  79.         } 
  80.     } 
  81.     } else if ((*p == '.') || isdigit(*p)) { 
  82.     register long v = 0; 
  83.     char *nstart = p; 
  84.     if (*p != '.') { 
  85.         do v = v*10 + (*p-'0'); 
  86.         while (isdigit(*++p)); 
  87.     } 
  88.     if (*p=='.' || *p == 'e' || *p == 'E') { 
  89.         ret = FNUMBER; 
  90.         p = strtof(nstart, &yylval.fval); 
  91.     } else { 
  92.             if((int)v != v) 
  93.             { 
  94.                 ret = FNUMBER; 
  95.                 yylval.fval = v; 
  96.             } 
  97.             else 
  98.             { 
  99.  
  100.                 ret = NUMBER; 
  101.                 yylval.ival = v; 
  102.             } 
  103.     } 
  104.     } else if (*p=='"') { 
  105.     /* This storage is never freed.  Oh well.  -MDW */ 
  106.     char *ptr; 
  107.         ptr = p+1; 
  108.         while(*ptr && *ptr++ != '"'); 
  109.         ptr = (char *)malloc((unsigned)(ptr-p)); 
  110.     yylval.sval = ptr; 
  111.     p += 1; 
  112.     while (*p && *p!='"') *ptr++ = *p++; 
  113.     *ptr = 0; 
  114.     if (*p) p += 1; 
  115.     ret = STRING; 
  116.     } else if (*p=='[') { 
  117.     while (*p && *p!=']') p++; 
  118.     if (*p) p++; 
  119.     linelim = p-line; 
  120.     return yylex(); 
  121.     } else ret = *p++; 
  122.     linelim = p-line; 
  123.     return ret; 
  124. } 
  125.  
  126. #define N_KEY 26 
  127.  
  128. struct key_map { 
  129.     char *k_str; 
  130.     char k_val; 
  131.     char k_index; 
  132. }; 
  133.  
  134. struct key_map km[N_KEY]; 
  135.  
  136. initkbd() 
  137. { 
  138.     int i; 
  139.  
  140.     /* cursor set mode */ 
  141.     km[0].k_str  = "\033OD"; km[0].k_val  = ctl(b); 
  142.     km[1].k_str  = "\033OC"; km[1].k_val  = ctl(f); 
  143.     km[2].k_str  = "\033OA"; km[2].k_val  = ctl(p); 
  144.     km[3].k_str  = "\033OB"; km[3].k_val  = ctl(n); 
  145.     /* cursor reset mode */ 
  146.     km[4].k_str  = "\033[D"; km[4].k_val  = ctl(b); 
  147.     km[5].k_str  = "\033[C"; km[5].k_val  = ctl(f); 
  148.     km[6].k_str  = "\033[A"; km[6].k_val  = ctl(p); 
  149.     km[7].k_str  = "\033[B"; km[7].k_val  = ctl(n); 
  150.     /* CSI arrows */ 
  151.     km[8].k_str  = "\233D";  km[8].k_val  = ctl(b); 
  152.     km[9].k_str  = "\233C";  km[9].k_val  = ctl(f); 
  153.     km[10].k_str = "\233A";  km[10].k_val = ctl(p); 
  154.     km[11].k_str = "\233B";  km[11].k_val = ctl(n); 
  155.     /* application keypad mode */ 
  156.     km[12].k_str = "\033Op"; km[12].k_val = '0'; 
  157.     km[13].k_str = "\033Oq"; km[13].k_val = '1'; 
  158.     km[14].k_str = "\033Or"; km[14].k_val = '2'; 
  159.     km[15].k_str = "\033Os"; km[15].k_val = '3'; 
  160.     km[16].k_str = "\033Ot"; km[16].k_val = '4'; 
  161.     km[17].k_str = "\033Ou"; km[17].k_val = '5'; 
  162.     km[18].k_str = "\033Ov"; km[18].k_val = '6'; 
  163.     km[19].k_str = "\033Ow"; km[19].k_val = '7'; 
  164.     km[20].k_str = "\033Ox"; km[20].k_val = '8'; 
  165.     km[21].k_str = "\033Oy"; km[21].k_val = '9'; 
  166.     km[22].k_str = "\033Om"; km[22].k_val = '-'; 
  167.     km[23].k_str = "\033Ol"; km[23].k_val = ','; 
  168.     km[24].k_str = "\033On"; km[24].k_val = '.'; 
  169.     km[25].k_str = "\033OM"; km[25].k_val = ctl(m); 
  170. } 
  171.  
  172. nmgetch() 
  173. { 
  174.     register int c; 
  175.     register struct key_map *kp; 
  176.     register struct key_map *biggest; 
  177.     register int i; 
  178.     int almost; 
  179.     int maybe; 
  180.  
  181.     static char dumpbuf[10]; 
  182.     static char *dumpindex; 
  183.  
  184.     void timeout(); 
  185.  
  186.     if (dumpindex && *dumpindex) 
  187.         return (*dumpindex++); 
  188.  
  189.     c = ttgetc(); 
  190.     biggest = 0; 
  191.     almost = 0; 
  192.  
  193.     for (kp = &km[0]; kp < &km[N_KEY]; kp++) { 
  194.     if (!kp->k_str) 
  195.         continue; 
  196.     if (c == (kp->k_str[kp->k_index] & 0xFF)) { 
  197.         almost = 1; 
  198.         kp->k_index++; 
  199.         if (kp->k_str[kp->k_index] == 0) { 
  200.         c = kp->k_val; 
  201.                    for (kp = &km[0]; kp < &km[N_KEY]; kp++) 
  202.                 kp->k_index = 0; 
  203.             return(c); 
  204.         } 
  205.     } 
  206.     if (!biggest && kp->k_index) 
  207.         biggest = kp; 
  208.         else if (kp->k_index && biggest->k_index < kp->k_index) 
  209.         biggest = kp; 
  210.     } 
  211.  
  212.     if (almost) return(nmgetch()); 
  213.  
  214.     if (biggest) { 
  215.     for (i = 0; i<biggest->k_index; i++) 
  216.         dumpbuf[i] = biggest->k_str[i]; 
  217.     dumpbuf[i++] = c; 
  218.     dumpbuf[i] = 0; 
  219.     dumpindex = &dumpbuf[1]; 
  220.            for (kp = &km[0]; kp < &km[N_KEY]; kp++) 
  221.         kp->k_index = 0; 
  222.     return (dumpbuf[0]); 
  223.     } 
  224.  
  225.     return(c); 
  226. } 
  227.  
  228.  
  229. int dbline; 
  230.  
  231. debug (fmt, a, b, c) { 
  232.     move(2+(dbline++%22),80-60); 
  233.     printw(fmt,a,b,c); 
  234.     clrtoeol(); 
  235. } 
  236.  
  237. /* 
  238.  * This converts a floating point number of the form 
  239.  * [s]ddd[.d*][esd*]  where s can be a + or - and e is E or e. 
  240.  * to floating point. 
  241.  * p is advanced. 
  242.  */ 
  243.  
  244. char *
  245. strtof(p, res) 
  246. register char *p; 
  247. double *res; 
  248. { 
  249.     double acc; 
  250.     int sign; 
  251.     double fpos; 
  252.     int exp; 
  253.     int exps; 
  254.  
  255.     acc = 0.0; 
  256.     sign = 1; 
  257.     exp = 0; 
  258.     exps = 1; 
  259.     if (*p == '+') 
  260.         p++; 
  261.     else if (*p == '-') { 
  262.         p++; 
  263.         sign = -1; 
  264.     } 
  265.     while (isdigit(*p)) { 
  266.         acc = acc * 10.0 + (double)(*p - '0'); 
  267.         p++; 
  268.     } 
  269.     if (*p == 'e' || *p == 'E') { 
  270.         p++; 
  271.         if (*p == '+') 
  272.         p++; 
  273.         else if (*p == '-') { 
  274.         p++; 
  275.         exps = -1; 
  276.         } 
  277.         while(isdigit(*p)) { 
  278.         exp = exp * 10 + (*p - '0'); 
  279.         p++; 
  280.         } 
  281.     } 
  282.     if (*p == '.') { 
  283.     fpos = 1.0/10.0; 
  284.     p++; 
  285.     while(isdigit(*p)) { 
  286.         acc += (*p - '0') * fpos; 
  287.         fpos *= 1.0/10.0; 
  288.         p++; 
  289.     } 
  290.     } 
  291.     if (*p == 'e' || *p == 'E') { 
  292.     exp = 0; 
  293.     exps = 1; 
  294.         p++; 
  295.     if (*p == '+') 
  296.         p++; 
  297.     else if (*p == '-') { 
  298.         p++; 
  299.         exps = -1; 
  300.     } 
  301.     while(isdigit(*p)) { 
  302.         exp = exp * 10 + (*p - '0'); 
  303.         p++; 
  304.     } 
  305.     } 
  306.     if (exp) { 
  307.     if (exps > 0) 
  308.         while (exp--) 
  309.         acc *= 10.0; 
  310.     else 
  311.         while (exp--) 
  312.         acc *= 1.0/10.0; 
  313.     } 
  314.     if (sign > 0) 
  315.         *res = acc; 
  316.     else 
  317.     *res = -acc; 
  318.  
  319.     return(p); 
  320. } 
  321.  
  322. help () { 
  323.     move(2,0); 
  324.     clrtobot(); 
  325.     dbline = 0; 
  326.     debug ("                 Cursor cmds:"); 
  327.     debug ("  ^n j next row       ^p k prev. row      ^g erase cmd"); 
  328.     debug ("  ^f l fwd col        ^b h back col       ^r redraw screen"); 
  329.     debug ("   0 $ first, end col"); 
  330.     debug ("                 Cell cmds:"); 
  331.     debug (" \" < > enter label       = enter value     x clear cell"); 
  332.     debug ("     c copy cell         m mark cell      ^t line 1 on/off");  
  333.     debug ("    ^a type value       ^e type expr.     ^v type vbl name"); 
  334.     debug ("                 Row, Column cmds:"); 
  335.     debug (" ar ac dup           ir ic insert      sr sc show"); 
  336.     debug (" dr dc delete        zr zc hide        pr pc pull"); 
  337.     debug (" vr vc value only        f format"); 
  338.     debug ("                 File cmds:"); 
  339.     debug ("     G get database      M merge database  T write tbl fmt"); 
  340.     debug ("     P put database      W write listing"); 
  341.     debug ("                 Misc. cmds:"); 
  342.     debug (" ^c, q quit              / copy region    pm pull (merge)"); 
  343.     debug ("                 Expression Operators"); 
  344.     debug ("  +-*/ arithmetic     ?e:e conditional   & | booleans"); 
  345.     debug (" < = > relations     <= >= relations      != relations"); 
  346.     debug ("       @sum(v1:v2)         @avg(v1:v2)       @prod(v1:v2)"); 
  347. } 
  348.